'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   T a b l e t T e s t e r _ S e q u e n c e s 1 2 . t x t                     D a t e :   2 7   J a n u a r y   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 6 3 
 
 P O W E R _ O U T             =   7 5 0 
 
 U S B 3 _ I N                 =   2 0 3 
 
 U S B 3 _ O U T               =   6 2 0 
 
 U S B C _ I N                 =   3 5 5 
 
 U S B C _ O U T               =   6 5 0 
 
 H D M I _ I N                 =   9 0 8 
 
 H D M I _ O U T               =   6 2 0 
 
 U S B P W R _ I N             =   2 2 8 
 
 U S B P W R _ O U T           =   5 7 6 
 
 O N O F F _ I N               =   5 9 2 
 
 O N O F F _ O U T             =   4 8 0 
 
 V O L U M E _ I N _ U P       =   4 6 3 
 
 V O L U M E _ O U T           =   4 9 3 
 
 V O L U M E _ I N _ D W       =   5 2 7 
 
 M E M O R Y _ I N             =   3 0 0 
 
 M E M O R Y _ O U T           =   6 0 4 
 
 H E A R S E T _ I N           =   6 8 8 
 
 H E A R S E T _ O U T         =   3 5 5 
 
 P E N _ D O W N               =   5 0 0 
 
 P E N _ U P                   =   1 9 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t M o t o r A                 =     1 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t M o t o r B                 =     3 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t S e n s o r X               =     7 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                   =   1 3   	 	 	 ' 2 _ T a b T s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ U S B C                   =   1 4                     ' 2 _ T a b T s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H D M I                   =   1 5 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ U S B P W R               =   1 6 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ O N O F F                 =   1 7 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   5   P W M 1 6 
 
 S L O T _ P O W E R   	 	     =   1 8 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E               =   2 5 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ M E M O R Y               =   2 6 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H E A R S E T             =   2 7 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ P E N                     =   2 9 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ R O T A T 	             =   2 8 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   5   P W M 1 6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R O T A T I O N   H / V 
 
 S l o t R o t H V _ D r i v e             =   2 8           ' 3 0 	 	 '   s l o t 
 
 S l o t R o t H V _ C u r r e n t         =   3 0           ' 3 1 	 	 '   s l o t 
 
 S l o t R o t H V _ M a x C u r r e n t   =   8 0 0         ' P e r i o d   f o r   t h e   m a x   c u r r e n t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G 
 
 J o g _ R a n g e X   =   2 5 6             ' 2 8 8 
 
 J o g _ R a n g e Y   =   1 4 4 
 
 J o g _ E n a b l e _ S l o t   =   1 9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 S p e e d   9 
 
 G o s u b   " P E N   U P " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 L o a d   . . \ T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 B u t t o n   1   T e x t   " R U N   T E S T " 
 
 B u t t o n   2   T e x t   " Z E R O " 
 
 B u t t o n   3   T e x t   " I N   P O W E R " 
 
 B u t t o n   4   T e x t   " I N   M E M O R Y " 
 
 B u t t o n   5   T e x t   " I N   U S B 3 " 
 
 B u t t o n   6   T e x t   " I N   U S B C " 
 
 B u t t o n   7   T e x t   " I N   H D M I " 
 
 B u t t o n   8   T e x t   " I N   U S B P W R " 
 
 B u t t o n   9   T e x t   " I N   H E A R S E T " 
 
 B u t t o n   1 0   T e x t   " P E N   D O W N " 
 
 B u t t o n   1 1   T e x t   " A L L   O U T " 
 
 B u t t o n   1 2   T e x t   " R O T A T E   H O R Z " 
 
 B u t t o n   1 3   T e x t   " R O T A T E   M I D L " 
 
 B u t t o n   1 4   T e x t   " J O G   w i t h   M o u s e " 
 
 B u t t o n   1 5   T e x t   " P O W E R   C Y C L E " 
 
 B u t t o n   1 6   T e x t   " C L O S E   A L L " 
 
 
 
 B u t t o n   1 7   T e x t   M U L T I 
 
 B u t t o n   1 8   T e x t   " S A F E   R E M O V E " 
 
 B u t t o n   1 9   T e x t   " S L I D E " 
 
 B u t t o n   2 0   T e x t   " D I S A B . M O T O R S " 
 
 B u t t o n   2 1   T e x t   " V O L U M E   O U T " 
 
 B u t t o n   2 2   T e x t   " V O L U M E   I N _ U P " 
 
 B u t t o n   2 3   T e x t   " V O L U M E   I N _ D W " 
 
 B u t t o n   2 4   T e x t   " 2 4 " 
 
 B u t t o n   2 5   T e x t   " 2 5 " 
 
 B u t t o n   2 6   T e x t   " 2 6 " 
 
 B u t t o n   2 7   T e x t   " 2 7 " 
 
 B u t t o n   2 8   T e x t   " 2 8 " 
 
 B u t t o n   2 9   T e x t   " 2 9 " 
 
 B u t t o n   3 0   T e x t   " 3 0 " 
 
 B u t t o n   3 1   T e x t   " A L L   B U T T O N " 
 
 B u t t o n   3 2   T e x t   " C A L I B R A T E " 
 
 
 
 S t o p 
 
 
 
 L a b e l   " A L L   I N " 
 
 	 G o s u b   " P O W E R   I N " 
 
 	 G o s u b   " U S B 3   I N " 
 
 	 G o s u b   " U S B C   I N " 
 
 	 G o s u b   " H D M I   I N " 
 
 	 G o s u b   " U S B P W R   I N " 
 
 	 G o s u b   " H E A R S E T   I N " 
 
 	 G o s u b   " M E M O R Y   I N " 
 
 	 ' G o s u b   " O N O F F   I N " 
 
 	 ' G o s u b   " V O L U M E   I N _ U P " 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   " V O L U M E   O U T " 
 
 	 B u t t o n   1 1   T e x t   " A L L   O U T " 
 
 R e t u r n 
 
 
 
 L a b e l   " A L L   O U T " 
 
 	 ' G o s u b   " P O W E R   O U T " 
 
 	 G o s u b   " U S B 3   O U T " 
 
 	 G o s u b   " U S B C   O U T " 
 
 	 G o s u b   " H D M I   O U T " 
 
 	 G o s u b   " U S B P W R   O U T " 
 
 	 G o s u b   " H E A R S E T   O U T " 
 
 	 ' G o s u b   " M E M O R Y   O U T " 
 
 	 G o s u b   " O N O F F   O U T " 
 
 	 ' G o s u b   " V O L U M E   I N _ D W " 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   " V O L U M E   O U T " 
 
 	 B u t t o n   1 1   T e x t   " A L L   I N " 
 
 R e t u r n 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   " S A F E   R E M O V E " 
 
 	 S e q u e n c e F i l e N a m e   =   " S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   " R U N   T E S T " 
 
 	 S e q u e n c e F i l e N a m e   =   " S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 ' S e q u e n c e F i l e N a m e   = S e q u e n c e _ B u t t o n T e s t _ w i t h _ c e n t e r . s e q 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S e q u e n c e _ T e s t T i m e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   " C A L I B R A T E " 
 
 	 B e e p 
 
 	 W a i t   K e y   S p a c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   " A L L   B U T T O N " 
 
 	 B e e p 
 
 	 W a i t   K e y   S p a c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S e q u e n c e _ A l l 3 2 B u t t o n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   " S L I D E " 
 
 	 D e s t X   =   3 0 
 
 	 D e s t Y   =   1 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 D e s t X   =   3 0 
 
 	 D e s t Y   =   9 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 M o v e _ S p e e d   =   2 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 M o v e _ S p e e d   =   2 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 ' L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ W i t h S p e e d 
 
 ' 
 
 ' 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 ' 	 W a i t   S e c o n d s   0 . 3 
 
 ' R e t u r n 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   U C a s e ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   S e q u e n c e C m d 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " Z E R O " 
 
 	 	 	 	 G o s u b   " Z E R O " 
 
 	 	 	 C a s e   " A L L   O U T " 
 
 	 	 	 	 G o s u b   " A L L   O U T " 
 
 	 	 	 C a s e   " P O W E R   I N " 
 
 	 	 	 	 G o s u b   " P O W E R   I N " 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S " 
 
 	 	 	 	 G o s u b   " E N A B . M O T O R S " 
 
 	 	 	 C a s e   " D I S A B . M O T O R S " 
 
 	 	 	 	 G o s u b   " D I S A B . M O T O R S " 
 
 	 	 	 C a s e   " P E N   U P " 
 
 	 	 	 	 G o s u b   " P E N   U P " 
 
 	 	 	 C a s e   " P E N   D O W N " 
 
 	 	 	 	 G o s u b   " P E N   D O W N " 
 
 	 	 	 C a s e   " P E N   A C T I O N " 
 
 	 	 	 	 G o s u b   " P E N   A C T I O N " 
 
 	 	 	 C a s e   " P O W E R   C Y C L E " 
 
 	 	 	 	 G o s u b   " P O W E R   C Y C L E " 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b   " H D M I   I N " 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b   " H D M I   O U T " 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b   " U S B 3   I N " 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b   " U S B 3   O U T " 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b   " U S B C   I N " 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b   " U S B C   O U T " 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b   " U S B P W R   I N " 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b   " U S B P W R   O U T " 
 
 	 	 	 C a s e   " P O W E R   I N " 
 
 	 	 	 	 G o s u b   " P O W E R   I N " 
 
 	 	 	 C a s e   " P O W E R   O U T " 
 
 	 	 	 	 G o s u b   " P O W E R   O U T " 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b   " M E M O R Y   I N " 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b   " M E M O R Y   O U T " 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b   " H E A R S E T   I N " 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b   " H E A R S E T   O U T " 
 
 	 	 	 C a s e   " R O T A T E   V E R T " 
 
 	 	 	 	 G o s u b   " R O T A T E   V E R T " 
 
 	 	 	 C a s e   " R O T A T E   M I D L " 
 
 	 	 	 	 G o s u b   " R O T A T E   M I D L " 
 
 	 	 	 C a s e   " A L L   I N " 
 
 	 	 	 	 G o s u b   " A L L   I N " 
 
 	 	 	 C a s e   " A L L   O U T " 
 
 	 	 	 	 G o s u b   " A L L   I N " 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   s 1 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e , " . s e q " , " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s " 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t   '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   " Z E R O " 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b   " E N A B . M O T O R S " 
 
 	 G o s u b   " P E N   U P " 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 ' G o s u b   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	   '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	   '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 2 	 	   '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	   '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   4 	 	   '   m o v e   t o   M M 
 
 	 G o s u b   " H o m e " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	   '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   + 1 	 	 	   '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 2 	 	   '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	   '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   4 	 	   '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   '   d e t a c h   i f   s e n s o r   a c t i v e 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
 ' 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
 ' 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
 ' 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I n i t i a l   p o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t M o t o r A   +   1 ) )   <   0 . 0 1 
 
 	 	 	 I f   A b s ( S l o t ( S l o t M o t o r B   +   1 ) )   <   0 . 0 1 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ R O T A T 	 	 	 '   d i g i t a l   m o t o r   1 1 
 
 
 
 ' L a b e l   " S T A R T   L O O P " 
 
 ' 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   " A L L   I N " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   " A L L   O U T " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l   " P O W E R   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P O W E R   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B 3   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B 3   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B C   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B C   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H D M I   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H D M I   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B P W R   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B P W R   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " O N O F F   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " O N O F F   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   I N _ U P " 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   I N _ D W " 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " M E M O R Y   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " M E M O R Y   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H E A R S E T   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H E A R S E T   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   U P " 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 M o v e _ S p e e d   =   1 0 0             ' 2 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1 0   T e x t   " P E N   D O W N " 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   D O W N " 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 M o v e _ S p e e d   =   1 0 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1 0   T e x t   " P E N   U P " 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   A C T I O N " 
 
 	 G o s u b   " P E N   D O W N " 
 
 	 W a i t   S e c o n d s   0 . 6 
 
 	 G o s u b   " P E N   U P " 
 
 R e t u r n 
 
 
 
 L a b e l   " P O W E R   C Y C L E " 
 
 	 G o s u b   " O N O F F   I N " 
 
 	 W a i t   S e c o n d s   1 . 5 
 
 	 G o s u b   " O N O F F   O U T " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   M E M O R Y " 
 
 	 G o s u b   " M E M O R Y   I N " 
 
 	 B u t t o n   4   T e x t   " O U T   M E M O R Y " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   M E M O R Y " 
 
 	 G o s u b   " M E M O R Y   O U T " 
 
 	 B u t t o n   4   T e x t   " I N   M E M O R Y " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   U S B 3 " 
 
 	 G o s u b   " U S B 3   I N " 
 
 	 B u t t o n   5   T e x t   " O U T   U S B 3 " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   U S B 3 " 
 
 	 G o s u b   " U S B 3   O U T " 
 
 	 B u t t o n   5   T e x t   " I N   U S B 3 " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   U S B C " 
 
 	 G o s u b   " U S B C   I N " 
 
 	 B u t t o n   6   T e x t   " O U T   U S B C " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   U S B C " 
 
 	 G o s u b   " U S B C   O U T " 
 
 	 B u t t o n   6   T e x t   " I N   U S B C " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   H D M I " 
 
 	 G o s u b   " H D M I   I N " 
 
 	 B u t t o n   7   T e x t   " O U T   H D M I " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   H D M I " 
 
 	 G o s u b   " H D M I   O U T " 
 
 	 B u t t o n   7   T e x t   " I N   H D M I " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   U S B P W R " 
 
 	 G o s u b   " U S B P W R   I N " 
 
 	 B u t t o n   8   T e x t   " O U T   U S B P W R " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   U S B P W R " 
 
 	 G o s u b   " U S B P W R   O U T " 
 
 	 B u t t o n   8   T e x t   " I N   U S B P W R " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   H E A R S E T " 
 
 	 G o s u b   " H E A R S E T   I N " 
 
 	 B u t t o n   9   T e x t   " O U T   H E A R S E T " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   H E A R S E T " 
 
 	 G o s u b   " H E A R S E T   O U T " 
 
 	 B u t t o n   9   T e x t   " I N   H E A R S E T " 
 
 R e t u r n 
 
 
 
 L a b e l   " I N   P O W E R " 
 
 	 G o s u b   " P O W E R   I N " 
 
 	 B u t t o n   3   T e x t   " O U T   P O W E R " 
 
 R e t u r n 
 
 
 
 L a b e l   " O U T   P O W E R " 
 
 	 G o s u b   " P O W E R   O U T " 
 
 	 B u t t o n   3   T e x t   " I N   P O W E R " 
 
 R e t u r n 
 
 
 
 L a b e l   " E N A B . M O T O R S " 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t E n a b l e M o t o r s )   =   9 9 9 
 
 	 B u t t o n   2 0   T e x t   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   " D I S A B . M O T O R S " 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t E n a b l e M o t o r s )   =   1 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 B u t t o n   2 0   T e x t   " E N A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   " C L O S E   A L L " 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l   " R O T A T E   V E R T " 
 
 	 S l o t   9 9 8   =   1 0 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t R o t H V _ C u r r e n t )   >   S l o t R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   " R O T A T E   H O R Z " 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   " R O T A T E   H O R Z " 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l   " R O T A T E   M I D L " 
 
 	 S l o t   9 9 8   =   1 0 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t R o t H V _ C u r r e n t )   >   S l o t R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   " R O T A T E   H O R Z " 
 
 	 S l o t   9 9 8   =   1 0 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t R o t H V _ C u r r e n t )   >   S l o t R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   " R O T A T E   V E R T " 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   " R O T A T E   V E R T " 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l   " J O G   w i t h   M o u s e " 
 
 	 B u t t o n   1 4   T e x t   " J O G   S T O P " 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l   " J O G   S T O P " 
 
 	 B u t t o n   1 4   T e x t   " J O G   w i t h   M o u s e " 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   v 1 
 
 ' W A T C H   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 